home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok29.lha / ImageConvert / ImageConvert.dok < prev    next >
Text File  |  1993-08-15  |  2KB  |  95 lines
  1. ----------------------------------------
  2.       ImageConvert
  3.       Kai Bolay
  4.       Hoffmannstraße 168
  5.       D-7250 Leonberg 1
  6.       (0)7152/22135
  7. ----------------------------------------
  8.  
  9. DOKUMENTATION
  10. =============
  11.  
  12. Es ist jetzt nicht mehr nötig auf Millimeterpapier gezeichnete Images in
  13. Hex-Zahlen umzurechnen! Gut, was?!
  14. Denn ImageConvert generiert Modula-2-Source-Code aus beliebig vielen
  15. IFF-Dateien beliebiger Breite, Höhe und Tiefe.
  16. Es arbeitet ähnlich wie IFFtoCode [pit] nur mit INLINE!!!
  17.  
  18. ImageConvert generiert M2Source für Images (Intuition) und Bobs (Graphics)
  19.  
  20. Wie geht das?
  21. -------------
  22.  
  23. - Die Images werden in D-Paint gezeichnet und als Brush abgespeichert.
  24. - ImageConvert wird mit den Brushes als Argument gestartet.
  25. - Der Name des Moduls das erzeugt werden soll wird eingegeben.
  26. - Die erzeugten Module (def/mod) werden compiliert
  27. - Jetzt können die Images einfach IMPORTiert werden!
  28.  
  29. Einschränkungen
  30. ---------------
  31.  
  32. Das Programm ImageConvert bearbeitet natürlich auch ganze IFF-Bilder, es ist
  33. aber kaum sinnvoll, ganze IFF-Bilder als Code zu installieren, weil dies zum
  34. einen eine Riesenmenge an SourceCode bedeutet, zum zweiten der Compiler nur
  35. Module bis zur Größe 32kB verarbeitet!
  36. Um solche Bilder zu benutzen sollte man IFFSupport [fbs] verwenden.
  37.  
  38.  
  39. Die erzeugten Dateien bei Eingabe von "Brush1"
  40. Name des zu erzeugenden Moduls: "Test"
  41.  
  42. (* ------------- Das erzeugte DEFINITION MODULE ---------------------- *)
  43. DEFINITION MODULE Test;
  44.  
  45. FROM Intuition IMPORT Image;
  46.  
  47. VAR Brush1 : Image;
  48.  
  49. END Test.
  50. (* ------------------------------------------------------------------- *)
  51.  
  52. (* ----------- Das erzeugte IMPLEMENTATION MODULE -------------------- *)
  53. IMPLEMENTATION MODULE Test;
  54.  
  55. FROM SYSTEM IMPORT ADR, INLINE;
  56.  
  57.  
  58. (* $E- *)
  59. PROCEDURE Brush1Dat;
  60.  
  61. BEGIN
  62.    (* Plane 1 *)
  63.    INLINE (0FFFFH, 0C0FFH, 0CCFFH, 0C003H, 0FCF3H, 0FCF3H, 0FCF3H, 0FC03H);
  64.    INLINE (0FFFFH);
  65.    (* Plane 2 *)
  66.    INLINE (00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H);
  67.    INLINE (00000H);
  68. END Brush1Dat;
  69.  
  70.  
  71. PROCEDURE InitBrush1;
  72.  
  73. BEGIN
  74.    WITH Brush1 DO
  75.       leftEdge   := 0;
  76.       topEdge    := 0;
  77.       width      :=  16;
  78.       height     :=   9;
  79.       depth      := 2;
  80.       imageData  := ADR (Brush1Dat);
  81.       planePick  := 255;
  82.       planeOnOff := 0;
  83.       nextImage  := NIL;
  84.    END; (* WITH *)
  85. END InitBrush1;
  86.  
  87. BEGIN
  88.   InitBrush1;
  89. END Test.
  90. (* ------------------------------------------------------------------- *)
  91.  
  92. Viel Spaß mit ImageConvert!
  93.  
  94. [kai]
  95.